home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / try_qb / entab.bas (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1989-12-04  |  2.4 KB  |  37 lines
  1. @    SetTabPos
  2. StripCommand
  3. CLine
  4. ThisIsATab
  5. Column
  6. MAXLINE#
  7. TABSPACE
  8. TabStops
  9. LastColumn
  10. CurrentColumn
  11. CommandLine
  12. InFileName
  13. OutFileName
  14. SpacePos
  15.  ENTAB.BAS
  16.  Replace runs of spaces in a file with tabs.
  17.  Set the tab positions (uses the global array TabStops).
  18.  Replace a run of blanks with a tab when you reach a tab
  19.  column. CurrentColumn is the current column read.
  20.  LastColumn is the last column that was printed.
  21.  Go to a tab column if we have a tab and thise
  22.  is not a tab column.f
  23.  Print out any blanks left over.
  24.  Print the non-blank character..
  25.  Reset the column position if this is the end of a line.
  26. SetTabPos
  27. -SUB SetTabPos
  28.  Set the tab positions in the array TabStops. 
  29. StripCommand
  30. -SUB StripCommand
  31. File to entab:   "
  32. Store entabbed file in:   
  33. Store entabbed file in:   
  34. ThisIsATab
  35. -FUNCTION ThisIsATab
  36.  Answer the question, "Is this a tab position?"
  37.